﻿Imports AccesoDatos
Imports Microsoft.office.interop

Public Class MultiConfiguracion

#Region "Stephan"

    ''' <summary>
    ''' Carga el manual de puestos a la base de datos
    ''' </summary>
    ''' <param name="p_manualPuesto">manual de puesto</param>
    ''' <remarks>Creador por: Stephan Endres, Fecha: 21/06/2010, Modificado: 21/06/2010.</remarks>
    Shared Sub cargarManualPuesto(ByVal p_manualPuesto() As Byte)
        Dim sql As String
        Dim pars(0) As Parametro
        sql = "update t_configuracion set manual_puestos = p_manualPuesto"

        pars(0) = New Parametro("p_manualPuesto", p_manualPuesto)

        g_access.ejecutarSQL(sql, pars)
    End Sub

    ''' <summary>
    ''' Descarga el manual de puestos de la base de datos lo tansforma en un documento word.
    ''' </summary>
    ''' <returns>Documento word</returns>
    ''' <remarks>Creador por: Stephan Endres, Fecha: 21/06/2010, Modificado: 21/06/2010.</remarks>
    Shared Function descargarManualPuesto() As Word.Document
        Dim sql As String
        Dim data As IDataReader
        Dim manualPuesto As Word.Document = Nothing

        sql = "SELECT manual_puestos FROM t_configuracion"

        data = g_access.ejecutarQuery(sql)

        While data.Read()
            manualPuesto = New Word.Document()
            manualPuesto.Content.InsertXML(Utils.byte2Object(data.Item("manual_puestos")))
        End While

        Return manualPuesto

    End Function

#End Region

#Region "David"


    ''' <summary>
    ''' Modifica la fecha para subir el curriculo vitae
    ''' </summary>
    ''' <param name="p_dias">Periodo nuevo en dias</param>
    ''' <remarks>Creado por: David Murillo, Creado: 18/06/2010, Modificado: 30/06/2010</remarks>
    Public Shared Sub modificarPeriodoCV(ByVal p_dias As String)

        Dim sql As String
        Dim pars(0) As Parametro

        sql = "update t_configuracion set periodo_curriculum = p_dias"

        pars(0) = New Parametro("p_dias", p_dias)

        g_access.ejecutarSQL(sql, pars)

    End Sub

    ''' <summary>
    ''' Modifica la fecha para subir el curriculo vitae
    ''' </summary>
    ''' <param name="p_fechaNueva">Fecha nueva</param>
    ''' <remarks>Creado por: David Murillo, Creado: 18/06/2010, Modificado: 30/06/2010</remarks>
    Public Shared Sub modificarFechaActualizacionCV(ByVal p_fechaNueva As String)

        Dim sql As String
        Dim pars(0) As Parametro

        sql = "update t_configuracion set fecha_actualizacion_cv = p_fechaNueva"

        pars(0) = New Parametro("p_fechaNueva", p_fechaNueva)

        g_access.ejecutarSQL(sql, pars)

    End Sub
    ''' <summary>
    ''' Obtiene la fecha del periodo para subir el curriculo vitae
    ''' </summary>
    ''' <returns>Fecha de periodo</returns>
    ''' <remarks>Creado por: David Murillo, Creado: 18/06/2010, Modificado: 30/06/2010</remarks>
    Public Shared Function obtenerFechaPeriodoCV() As String

        Dim fechaPeriodo As String = Nothing
        Dim sql As String
        Dim drFecha As IDataReader

        sql = "select fecha_actualizacion_cv from t_configuracion"

        drFecha = g_access.ejecutarQuery(sql)

        While drFecha.Read()
            fechaPeriodo = drFecha.Item("fecha_actualizacion_cv")
        End While

        Return fechaPeriodo

    End Function

#End Region

End Class
